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COPYRIGHT (oD 1978 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copiee 
ONLY IN er oe WITH THE TERMS OF vave® Tht AND wire THE 
INCLUSION OF Fag: COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MA ‘ BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PAAnSFERAESY NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eRPORAT tne NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Author Brian Porter 


Functional description: 
This module displays entries logged by pudriver. 
Modified by: 


V03-008 SARO276 Sharon A. Reynolds 20-Jun-1984 
Added TMSCP message types. 


v03-007 SARO230 porns olds, 28-Mar-1984 
Changed the catt® te “Oeesi -OWNUIC to ORBSL_OWNER. 


v03-006 SARO198 Shar re A. Reynolds, 20-Feb-1984 
Added an SYE update t hat: 
- Adds additional Aztec sa’ error codes. 
- Adds RDRX support. 


v03-005 SARO148 Sharon A. Reynolds, 5-0c t-1983 
Added an SYE update that 
- corrects a bp od on version error for micro-code rev. 
- corrects text descriptions and lengths. 
= adds AZTEC and TU 1P(partial) support. 


v03-004 SARO091 Shoren A. Reynolds, 20-Jun-1983 
snanged the cores age control in the ‘format’ statements 
or use w 
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ise Sep-1986 14:81:08 DISKSVMSMASTER: LER. SRCIPUDRIVER.FORSI™® ° 


¢ v03-003 BP0003 Brian Porter 08-FEB-1983 88 
. Corrected argument List for ert logasg2. 0 
c v03-002 BP0002 rian Porter, 25-MAY-1982 
: Added ‘option’ filtering. 
c v03-001 8P0001 Brian Porter, 12-APR=-1982 
c Added more message types. 
cre 00 
¢ee 8 
i Subroutine PUDRIVER (Lun) 60 
1 include ‘src$:msghdr.for /nolist’ 00 
include ‘src$:deverr.for /nolist’ 00 
0231 $0 
° byt l 00 
8 : yte un 00 
9 integers2 code_word 00 
$ integer® initTalization_count 94 
9 39 integer4 vec$l_mapreg 4 
0241 integer* reserved 00 
0 4g integer uda_sa 00 
9 43 integere initialization_handshake(8) 94 
0245 equivalence (emb (82) ,code_word) 00 
0 46 equivalence Comb 4), initTalization_count) 00 
4 equivalence 86). vec$l snepreg) 00 
48 equivalence 00 
49 equivalence Comb (90) Weleteltscetea.: handshake) 89 
i character*33 vistep!_sa_to_host (6:10) 88 
5 Dat vistep!_sa_to_host(6) 00 
24 1 i *poRT SUPPORTS ADDRESS RAPPING*'/ 09 
5 Dat vistep!_sa_to_host(7) 
33 1 i Sport ALLOWS HOST DDB ADDRESSES®' / st 
59 at step!_sa_to_host(8) 
60 $F ENHANCED DIAGNOSTICS TRPLERENTE Re" / 3 
6 step!1_sa_to_host(9) 
es wi + 22-811 HOST ADDRE SING” SUPPO RTED®'/ 00 
65 dat 1 sa_to host (10) 
o6 1 i PHOST-SETTABLE "SEEFOR URSUPPORTED®'/ 
68 charactere17 vistepl_host_to_sa(7:7) 
at Istep!_host_to_sa(7) 
; 7* INTERRUPT ENABLE®*/7 ei 
| q 
Re Bain | 
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character*2} v2stepl_host_to_sa(14:14) 


dat v2step! host. to_sa(14) 
1 i *DLAGNOSTIE WRAP MODE®' 


character*21 vistep2_sa_to_host (6:6) 


equivalence (vistep2.sa_to_host,v2step!_host_to_sa) 
character*6 v2step2_sa_to_host (15:18) 
equivalence (v2step2_sa_to_host.visa(15)) 


character*33 vistep2_host_to_sa(0:0) 


dat latepe host_to_sa(0) 
1 i *HOST REQUESTS “PURGE'’ INTERRUPTS®'/ 


character*17 vistep3_sa_to_host(7:7) 


equivalence (vistep3_sa_to_host,vistep1!_host_to_sa) 
character*6 v2step3_sa_to_host(15:15) 
equivalence (v2step3_sa_to_host,visa(i5)) 


character*31 vistep3_host_to_sa(15:15) 


data y'steps host_to_sa(15 
1 /"HOST REQUESTS POLL/PURGE TESTS* '? 


vistep4_sa_to_host(15:15) 
equivalence (vistep4_sa_to_host,visa(15)) 
character*26 vistep4_host_to_sa(0:1) 


charactert6 


$59 ney vistep4_host_to_sa(0) 


data vistep4_host_to_sa(1) 
1 /"HOST REQUESTS "‘LASTFAIL™*'7 


common sa 


charactert7 visa(11:15) 
common /sa/ visa 
gore visa(11) 
/*STEP 1#'/ 
gete visa(12) 
/*STEP 2e'/ 
visa(13) 


gate 
/*STEP 3#'/ 
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PUDRIVER I§-Sep-19 4 00:27: VAX=11 FORTRAN V3.4-56 Page 4) SA 
-Sep- sdis K$V : e UDRIVER.FOR; 
Sep-1984 14 34 a8 DISKSVMSMASTER: LERF .SRCJPUDRI 19 | 
gate visa(14) 
1 /*STEP &e*/ 
| 
: data visa(15) 
¢ 1 /"ERROR®'/ 
integer*4 compress4 
integer*4 compressc 
integer*4 ringbase_low 
9 integer*4 ringbase_high 
0 integer*4 burst 
1 integere4 rorng_lng 
¢ integers4 c_rng_ing | 
integere4 port_type 
8 ¢ integer*4 interrupt_vector 


call frctof (lun) 

call header (lun) 

call logger (lun, "DEVICE ATTENTION') 
call Linchk (Llun,2) 

if (code_word .eq. 1) then 


CGoocoo 
3325 


ae 


WAWAW 
PDAS 
NOUS VINO 


write(lun,10) emb$t_dv_name(1:emb$b_dv_naming) ,emb$w_dv_unit, 
1", INIT SEQUENCE COMPLETED‘ 
10 format{/" *,''DSA’’ PORT SUB-SYSTEM, UNIT _',a, 
1 i<compressé (LibSextzv(0,16,emb$w_dv_units)>,":",:a, 
1 :i<compress4 (LibSextzv(6,16,code-word))>,:a) 


else if (code_word .eq. 2) then 
| 
| 


EREESS 


wr 


write(lun,10) emb$t av name(1:emb$b_dv_namLng) ,emb$w_dv_unit, 
1°, INIT SEQUENCE FAICURE' 


else if (code_word .eq. 3) then 


SSSasey 


write(lun,10) emb$t_dv_name(1:emb$b_dv_naming) ,emb$w_dv_unit, 
1°, ‘SA’ ERROR BIT™SET’ 


else if (code_word .eq. 4) then 


3 


a J 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: 


write(lun,10) emb$t_dv_name(1:emb$b_dv_naming) ,emb$w_dv_unit, 
1", UBA DATAPATH PORGE ERROR‘ 


else if (code_word .eq. 5) then 
write(lun,10) emb$t_dv_name(1:emb$b_dv_naming) ,emb$w_dv_unit, 


cS. UCODE REV AND “PUDRIVER'’ MIS-MATCR’ 
eise 


write(lun,10) emb$t dv _name(1:emb$b_dv_namlng) ,emb$w_dv_unit, 
1 ity PUDRIVER CODE #*,code_word,'." 
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ig cont 98 12:34:08 
call Linchk (Llun,2) 


write(lun, 15) uda $a 
format(/" ',t8,'SA',t28,24.4) 


if (uda.sa .ne. 0) then 

if (LibSextzv(15,1,uda_sa) .eq. 0) then 
Call SA_NOERROR (Lun,uda_sa) 

else 

call sa_error (lun,uda_sa) 

endif 

endif 

call Linchk (lun,2) 


write(Llun,30) 
format(/* ',* INIT SEQUENCE’) 


call Linchk (lun,2) 


write(lun, 35) initialization_handshake(1) 
format(/* °,t8,UCBSW -PORTSTEP1',t2 24.4) 


if Cinitialization_handshake(1) .ne. 0) then 
if (LibSextzv(15,1,initialization_handshake(1)) .eq. 0) then 
goth eprout (Lun, initialization_handshake(1),vistepl_sa_to_host,6,6, 


pe output (lun, initialization_handshake(1),v1sa,11,11,15,'0") 
else 


coly sa_error (lun, initialization_handshake(1)) 
en 
endif 

call Linchk (lun,1) 


write(tun,40) initialization hand hake(2) 
format(’ *,t8,UCBSW_HOSTSTEP1',t28,24.4) 


if (initialization_handshake(2) .ne. 0) then 

interrupt_vector = LibSextzv(0,7,initialization_handshake(2)) #4 
call Linchk (lun,1) 

write(lun,45) interrupt vect 


rormet 1 $40. * INTERRUPT VECTOR *,o<compress4 (interrupt_vector)>, 


call output (lun, initialization_handshake(2),vistepl_host_to_sa,7,7,7, 
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1 0") 
rorng_ing = 2**libSextzv(8,3, initialization _handshake(2)) 
call Linchk (lun,1) 


| 
write(lun,50) rerng_l | 
50 format(' *,t40, Tc<colieresss (rorng_lng)>,*. RING RESPONSE SLOTS‘) 


Curng_lng = 2e*libSextzv(11,3,initialization_handshake(2)) 
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call Linchk (lun,1) 


write(lun.55) ci rng_ing 
55 format(' *,t40, T<cokpressé (c_rng_lng)>,*. COMMAND RING SLOTS") 


cot} eprput (Lun, initialization_handshake(2),v2stept_host_to_sa,14,14, 
endi 
call Linchk (lun,1) 


write(lun,60) initialization_handshake(3) 
60 format(’ ',t8,"UCBSW_PORTSTEB2' ,t28,24.4) 


if Cinitialization_handshake(3) .ne. 0) then 

if (LibSextzv(15,1,initialization_handshake(3)) .eq. 0) then 
rorng_lng = 2e*libSextzv(0,3,initialization_handshake(3)) 
call Linchk (lun,1) 

write(lun,50) rorng_ing 
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curng_lng = 2e*libSextzv(3,3,initialization_handshake(3)) 
call Linchk (lun,1) 
write(lun,55) c_rng_tng 


QRARAVASSSISARANASSHUSAK 


gett outeus (lun, initial ization handsheke(s) vistep2_se_to_host. 


port_type = LibSextzv(8,3,initialization_handshake(3)) | 
call Linchk (lun,1) | 
| 
i 


ooo 
Soooooooeo 


2 
91 2 
3 if (port_type .eq. 0) then $ 
94 write(lun 65) *UNIBUS/Q BUS STORAGE SYSTEMS PORT’ $ 
95 65 format(' ',t40,a,: i<compress4 (port_type)>,:a) 
38 else 
9 
98 
BG 


write(lun,65) "PORT TYPE #',port_type,'.' 
endif 
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16-Sep-1984 00:27:3 
b-se0-1984 90: 1:0 
cet output (Lun, initialization_handshake(3),visa,11,11,15,'0") 


call se_error (lun, initialization_handshake(3)) 

endif 

endif 

ringbase_low = 0 

ringbase_high = 0 3 
call Linchk (Llun,1) 


write(lun,70) initialization_handshake(4) 
format(' *,t8,"UCBSW_HOSTSTEP2* ,t28,24.4) 


if Cinitialization_handshake(4) .ne. 0) then 


coll output (Lun, initialization_handshake(4),vistep2_host_to_sa,0,0, 


egpese._ lew = LibSextzv(1,15,initialization_handshake(4))*2 
en 


call Linchk (lun,1) 


write(lun,75) initialization _handshake(5) 
format(' ',t8,"UCBSW_PORTSTEP3',t28,24.4) 


if (initialization _handshake(5) .ne. 0) then 

if (LibSextzv(15,1,initialization_handshake(5)) .eq. 0) then 
interrupt_vector = LibSextzv(0,7,initialization_handshake(5))*4 

call Linchk (lun,1) 

write(lun,45) interrupt_vector 

catl output (Lun, initialization_handshake(5),vistep3_sa_to_host,7,7, 


=p output (Lun, initialization_handshake(5),v1sa,11,11,15,'0") 
else 


call sa_error (lun, initialization_handshake(5)) 
endif 

endif 

call Linchk (Llun,1) 


write(lun,80) initialization_handshake(6) 
format(’ *,t8,UCBSW_HOSTSTEP3',t28,24.4) 


if Cinitialization_handshake(6) .ne. 0) then 
If (LIBSEXTZV(6,1,initialization_handshake(1)) .£Q. 0) then 
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Ib-se -1984 00:27: VAX-11 FORTRAN V¥3.4-56 Page 8 
~Sep-19 4 903518 DISKSVMSMASTER: CERF. SRCIPUDRIVER.FORS1® 

0558 ringbase_ high = LibSextzv(0,2, initialization _handshake(6)) 001 
is mt —— windsty - weatecntenatres 98 

26) call calc_map (Lun,0,ringbase_high,ringbase_low) 00 
0368 call eptout (Lun, initialization_handshake(6),vistep3_host_to_sa,15,15, 09 
0565 endif 001 
0566 001 
0567 call Linchk (lun,1) 
te 
0876 85 format(’ *,t8,"UCBSW_PORTSTEP4',t28,24.4) 
0276 if Cinitialization_handshake(7) .ne. 0) then 
B3re if (LibSextzv(15,1,initialization_handshake(7)) .eq. 0) then 

76 Call SA_NOERROR (Lun, initialization_handshake(7)) 

a else 

79 call sa_error (lun, initialization_handshake(7) ) 

80 endi 

81 endif 

83 

8 call Linchk (lun,1) 


write(lun,90) initialization _handshake(8) 
90 format(' *,t8,"UCBSW_HOSTSTEP4' ,t28,24.4) 


if Cinitialization_handshake(8) .ne. 0) then 
if (LibSextzv(15,1,initialization_handshake(8)) .eq. 0) then 
sett output (Lun, initialization_handshake(8),vistep4_host_to_sa,0,0, 
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burst = (LibSextzv(2,6,initialization_handshake(8)) + 1)*2 
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96 
+44 call Linchk (lun,1) 
rs 4 if (burst .eq. 0) then 5 
06a) write(lun,95) "CONTROLLER USING DEFAULT ‘BURST’’* 
95 format(* °,t40,a,:i<compress4 (burst)>,:a) 
bend else 
0605 wripettun. 95) ‘BURST’, ‘,burst,'. 16-BIT TRANSFER(S)' 
en 
endif 
8 endif 
19 call vecmapreg (Lun,vec$l_mapreg) 
\s call orb$l_owner (lun,emb$l_dv_ownuic) 
14 call ucb$l_char (lun,emb$l_dv_char) 


write(lun,85) initialization _handshake(7) 
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call ucb$w_sts (lun,emb$w_dv_sts) 
call ucb$l_opcnt (lun,emb$l_dv_opcnt) 


—— 4-4 


call ucb$wlerrcnt (lun,emb$w_dv_errcnt) 
call Linchk (lun,2) 


SSFSSSSSSSSSS 


write(lun,10 ) (initialization count. { = 1,2) 

100 format(’ *,t8,"UCBSW_NUMBINITS*’,t28,24.4,/, 
1 t40,i<compress4 (Lib$extzv(0,16, initialization_count))>, 
1°. ENiT SEQUENCE(S)") 


return 


entry b_pudriver (lun) 


call header (Lun) 

call logger (lun, "DEVICE ATTENTION’) 
call Linchk (lun,6) 

if (code_word .eq. 1) then 


otto tt ttt tats 
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write(lun,110) emb$t_dv_name(1:emb$b_dv_naming) ,emb$w_dv_unit, 
1 ', INIT SEQUENCE COMPLETED’ 

110 format(/* *,'''DSA’*’ PORT SUB-SYSTEM, UNIT _‘,a, 
1 i<compress4 (LibSextzv(0,16,emb$w_dv_unit))>,':",:a, 
1 :i<compress4 (LibSextzv(6,16,code-word))>,:a) 


else if (code_word .eq. 2) then 


write(lun,10) emb$t_dv_name(1:emb$b_dv_naming) ,emb$w_dv_unit, 
1 *, INIT SEQUENCE FAICURE' 


else if (code_word .eq. 3) then 


SSS CS ES ESOS ESET ET ETE 


write(lun,10) emb$t_dv_name(1:emb$b_dv_naming) ,emb$w_dv_unit, 
1 *, ‘SA’ ERROR BIT SET’ 


else if (code_word .eq. 4) then 


S3e238 


write(lun,10) emb$t_dv_name(1:emb$b_dv_naming) ,emb$w_dv_unit, 
1 *, UBA DATAPATH PORGE ERROR® 


else if (code_word .eq. 5) then 


oO 


write(lun,10) emb$t_dv_name(1:emb$b_dv_naming) ,emb$w_dv_unit, 
Vie UCODE REV'AND “PUDRIVER" MIS-RATCR 
else 
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3 
ov» 


) emb$t_ dv name(1:emb$b_dv_naml: 3) ,emb$w_dv_unit, 
ER" CODE #*,code_word,': 
7 write(lun,115) ‘SA’, *PSTEP1", *HSTEP1', *PSTEP2', "HSTEP2', 'PSTEP3', 
8 1 *HSTEPS PSTEP4' es 
06 115 format(/* §,t8,a,t15,a,te2,a,t29,a,t36,a,t43,a,t50,a,t57,a,t64,a) 
l 0 
( t 


best write(lun,120) uda_sa,(initialization_handshake(i),i = 1,8) 
b68¢ 120 format(/" ',t8,24.5,80' 


~24.4)) 
return 


0684 
one end 


Name Bytes Attributes 
0 SCODE 3301 PIC CON REL LCL SHR EXE R&D NOWRT LONG 
1 SPDATA 1001 PIC CON RE SHR N RD NOWRT LONG 
¢ SLOCAL 1780 PIC CON REL LCL NOSHR NOEXE D WRT LON 
EMB 512 PIC O 
4 SBLANK 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 SA 35 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 6633 
ENTRY POINTS 
Address Type Name Address Type Name 
0-00000919 B_PUDRIVER 0-00000000 PUDRIVER 


VARIABLES 
Address Type Name 

~8 000008 I*2 CODE WORD 
3 0001 


198 
15 
14 
08 


0 
¢ 
C 
4 
A 


: 


ARRAYS 
Address 


LABELS 


FUNCTIONS AND 
Type Name 


Label 


EMBSW_HD_ENTRY 
INTERRUPT _VECTOR 
PORT_TYPE 
RINGBASE_HIGH 
R_RNG_LNG 
UBA_SA 


EMB 

EMBSL_DV_REGSAV 
EMBSQ-HD TIME 

INI TIRLIZATION_HANDSHAKE 


v1 
V2STEP1 
Vv 

Vv 


Address Label 


1-Q000001AD 15° 
1-000 O9F8 55° 


170000082 120 


De 120° 


co 
wy 


SUBROUTINES REFERENCED 


CALC_MAP 
LOGGER 
UCBSL_OPCNT 


Type Name 
1*4 COMPRESS4 
ORBSL _OWNER 
UCBSW~ERRCNT 


Address 


444 3 30° 
1-00000278 
1-00000314 90° 


—" 
MINI Sw 
AAR AVN HW WOr 


~ 


Label 


60° 


Type Name 


FRCTOF 
OUTPUT 
UCBSW_STS 


Dimensions 


—b ue oe oe 
~ wa 
~~ 


LLAE&LQ_EOQ_eB_oO_OQ_oOQ_Q_OQLOQLO—OLoL 
ani ube oe oe 
oe owes ROO: 
Sw YS OS YH OV 

“i 

~" 


WI Utes oe 


Address’ Label 


101 35° 
$3 65° 
30 95" 


Type Name 


HEADER 
SA_ERROR 
VECMAPREG 


X=11 FORTRAN 


it Pees a 
SKSVMSMASTER: CERF .SRCJPUDRIVER.FOR;1 


Address 
-QOOO01EE 40° 
1-000002A4 70° 

-00000340 100° 


Type Name 


I*4 LIBSEXTZV 
SA_NOERROR 


Label 


Page 


Address’ Label 


1-0000020A 45! 


1790900879 130" 


GN 
“ 


Type Name 


LINCHK 
UCBSL_CHAR 


3.4-56 Page 12. 
DI SKSVMSMASTER: CERF SRCIPUDRIVER.FORG1” | 


r 


GIS Q0:ST:HE WMD NASRUTE 


Wwnrn— 


Subroutine SA_NOERROR (Llun,sa_register) 


“ 


implicit none 

byte lun 

integer*2 sa_register 
integers4 micro code_revision 
integers4 ort_type 

integer*4 ibSextzv 

integers4 compress4 


character*7 visa(11:15) 
common /sa/ visa 


| 
micro_code_revision = LibSextzv(0,4,sa_register) | 
call Linchk (lun,1) 


SSsssseseseses 


MMMM 233 2S SSS 
OUE WN O0DNOUSWN =O 


write(lun,10) micro_code revision 
10 format(' ',t40,"CONTROLLER MICRO-CODE #' 
1 i<compress4 (micro_code_revision)>,*.'5 
port_type = LibSextzv(4,4,sa_register) 
call Linchk (lun,1) 
if (port type .eq. 0) then 


write(lun,15) *UDA5SO" 
} 
| 
| 
| 


GEBFUNSSSSON 


15 format(' *,t40,'PORT IS ',a) 
else if (port_type .eq. 1) then 
write(lun,15) ‘RC25° 
else if (port_type .eq. 5) then 
write(lun,15) *TU81P' 
else if (port_type .eq. 6) then 
write(lun,15) ‘UDASOA’ 

Else if (port_type .£Q. 7) then 
Write(lun,15) "RORX* 


S8S888s88383sss 


w 


NONE WT 0 OONO UE WO 0 


See o SSeS SEE EREEE 


else 
write(Lun,20) "PORT TYPE #* .port_type 
20 format(’ ',t40,a,i<compressé (port_type)>.".") | 


H 6 
SStp-1986 96:51:08 DISKSUNSMASTER: 


SA_NOERROR 
Sep-1984 
oS endif 
: call output (lun,sa_register,visa,11,11,15,'0") 
¢ return 


end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE $98 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 130 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
; SLOCAL 193 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
SA PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 761 


ENTRY POINTS 


Address Type Name 
0-00000000 SA_NOERROR 
VARIABLES 
Address Type Name Address Type Name 
AP-00000004@ L*1 LUN 2-00000000 I*4 MICRO_CODE_REVISION 
2-00000004 I*4 PORT_TYPE AP-000000088 I*2 SA_REGISTER 
ARRAYS 
Address Type Name Bytes Dimensions 
3-00000000 CHAR VISA 35 (11:15) 
LABELS 
Address Label Address’ Label Address Label 


1-00000039 10° 


1-00000061 15° 1-00000072 20° 


- SRCJPUDRIVER.FOR; 


" 


i 
| 
| 


— ee z a 


ifese opr 1 Re PO:8T:38 | WIE SQRSTAN-Feaechcapunriver.rorei@” | 4 
FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name Type Name 
1*4 COMPRESS4 1*4 LIBSEXTZV LINCHK OUTPUT 


SA_NOERROR 


SS 


<z 


Re Be Oe Be Oe Se Be Se Se Se Se Be Be Se Se Fe Se Se Se Se FH Se SH Se Se OH Se Se FH Se Oe Se SFOs Se SHS Se Se Se SH Se Se SH Se Se SESH Se Se SESH Se Sete Beas 


1f-se0-1944 Poe ag Pee neae TEN Peat shcapuoriver.romei™” > 


Subroutine SA_ERROR (lun,sa_register) 


Mme wr 


‘ Implicit None 3 
ti byte lun : 
i} integer*2 sa_register ; 

Gor§ Integer *4 LibSextzv ; 
Org character*34 port_generic_sa_error_code(0:21) ; 
001 data ort_generic_sa_error_code(0) ; 
0018 Tie eS 
0020 data ort_generic_sa_error_code(1) : 
+ 1 1 /*PACKET READ, PE/TIMEOUT a/ : 
00 ; data port generic. sa_error_code(2) : 
0035 1 /*PACKET WRITE, PE7TIMEOUT#'/ : 
0026 data ort_generic_sa error code(3) : 
0037 1°7*UDA “ROM OR’ RAR PARITY ERROR®'7 
0029 data ort_generic_sa_error_code(4) : 
0080 1 /*UDA ‘'RAM'’ PARITY ~PRROR®* '7 : 
003. data ort_generic_sa_error_code(5) ; 
0038 1 /‘UDA ‘'ROM'' pakity™ PRROR®* "7 : 
0035 data eneric_sa_error_code(6) ; 
0037 1 /"RING READ paRITY-ERROR/TT TmeOuT*'/~ : 
0038 data eneric_sa_error_code(7) ; 
4 1 /*RING WRITE PRRITYERROR/T TIMEQUT®'7 : 
0041 data rt_generic_sa_error_code(8) : 

§ 1 /*INTERRUPT MASTER ERROR*'7 : 

4 gate port ener ic_se_error_code(9) : 

5 /*HOST ACCESS TIME * : 

8 data port generic. sa_error_code(10) ; 

8 1 /"CREDIT LIMIT EXCEEDED* ‘ 
50 data ort ange te _$a_error_code(11) ; 
2) 1 /"UNIBUS MASTER ERR : 
38 gote port_generic y®taerror_code(t2) ; 
ze /"DIAGNOSTIC FATAL” RROR®* ; 
5 data rt_generic_sa_error_code(13) ; 
$ 1 /* INSTRUCTION POOP” Timeout®*/ 1 4 : 


SSaeeae — — —_— 


SA_ERROR 
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1 


oe 
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SSNS 


NOue 


Saesererecesss esses 


33 


at a se ot 2) as 4 ts 5 a tH 


FUN =SSSVSAF AVS 


oooo 


igseor}98e 00:37 2 


at ort_generic_sa error _code(14) 
; 7* INVALID CONNECTION IDENTIFIER®' 


dat ort ogoneric_sa_error_code(15) 
1 ?? INTERRUPT WRITE®® 


ata neric_sa_error_code(16) 
/ "MAINTENANCE READ7ORITE FRILORE e/ 

ata eneric_sa_error_code(17) 
MAINTENANCE BRITE FAILURES *7 

ata pork gener ic $a_error_code(18) 
"CONTROLLER ‘RAM’ FAILURE®'/ 


d 

rT, 

dat 

1/ 

data ort_generic_sa error code(19) 
1 7* INITIALIZATION SEQUENCE FAICURE®'7 

dat 

1/ 

data 

v, 


ata ort_generic_sa error. code(20) 
*PROTOCOL IncDMPATYBILITY™ ERROR*'/~ 


eneric error_code(21) 


a sa 
PURGE /POLL HRRDURRE FAILORE®'/ 


character*35 aztec_sa_error_code('310'o:'356‘o) 


dat tec_sa_error_code('310'o) 
1 PREAD/WRITE ERROR On INTERROPT#'/ 

data tec_sa_error_code('311'o) 
1 * INCONSISTENCY AT “U.BFIL''#*/ 

data aztec_sa error, code('312'o) 
1 * INCONSISTENCY AT “U.BMTY''#*/ 

data tec_sa error egodet” 313'o) 
1 * INCONSISTENCY. AT “U.ALOC’ 

data sa_error_code gnats" 0) 
1 /* INVALID SERVO TENTRY TPIP SET)#' 


tec_sa_error_code('315'o) 
INVALID AT SERVO ENTRY (ERROR SET)*'/ 


tec_sa_error_code('316'o) 
INCONSISTENCY maT "U.SEND''s*/ 


oe te 
a in ad = a A i i ad 


aztec sa atrrace codec” 317'o) 
INCONSISTENCY AT "U.R 


ree gode("320°o) 


-a -a -a —a 
pr 


ztec sae 
INCONSISTENCY AT "U.ATIN' 
e 


sa_err ode('321'o) 
* INCONSISTENCY AT "O° ONLN mr j * 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


fear 


-56 
«SRC 


Page 16 


JPUDRIVER.FOR: 1 


- 
a 
. 
e 
. 
o 
. 
o 
. 
. 
. 
a 
. 
e 
. 
o 
. 
e 
. 
o 
o 
. 
° 
. 
e 
. 
e 
. 
o 
- 
a 
o 
* 
. 
t 
. 
o 
. 
a 
. 
a 
. 
a 
- 
e 
. 
e 
. 
o 
2 
o 
o 
e 
. 
os 
- 
e 
. 
a 
. 
a 
. 
e 
. 
a 
~ 
2 
. 
o 
o 
e 
. 
o 
. 
e 
u 
. 
e 
- 
7 
7 
e 
. 
- 
. 
e 
. 
o 
7 
e 
7 
o 
. 
. 
© 
e 
e 
. 
Oo 
7 
. 
. 
a 
. 
a” 
7 
. 
. 
= 
. 
. 


6 
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('324'0) 
a'/ 


d 

E 
de('325'o) 
TORE®'/ 
$96" 526"0) 


IAAI ororunononononons 4 


or_code('330'o) 
SEKO''#*/ 


sa_error_code('331'o) 
™U.CKSV"'s?/ 


a aztec_sa_error_code('332'o) 
**'D.OPCD'' FOUND ILCEGAL OPCODE*'/ 


a aztec_sa_error_code('333'o) 
*'D.CSF'* FOUND ILLEGAL OPCOBE®'/ 


a aztec_sa_error_code('334'o) 
"UNKNOWN BAD DRIVE STATUS, "D.DSTS*'*'/ 


3 aztec_sa_error_code('335'o) 
"ILLEGAL ‘*XFC’’ EXECUTED BY “DM''#'/ 


a aztec_sa_error_code('336'o) 
*"D"* PICKED UP A ZERO™''SCB.BB'’*'/ 


a aztec _sa_error_code('337'o) 
"INCONSISTENCY AT "D' IDLE COOP#'/ 


ata aztec_sa_error_code('340'o) 
**DM’’ WORD COUNT ERROR®'/ 


t 
/ 
t 
/ 
t 
/ 
t 
/ 
ata aztec_sa_error_code('341'o) 
/"UNKNOWN DISPLAY FAULT, ‘D.BFLT’'#'/ 
t 
/ 
t 
/ 
t 
/ 


aztec_sa_error_code('342'o) 
DRIVE NOT FAULTING, “P.OFLR'’ STATE®'/ 


a_error_code('343'o) 
STICS LED*'/ 
a_er 
STIC 
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or_code('344'o) 
] LED®'/ 


aztec r 
“D’’ POWER-UP D AGN S FAI 
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20 forsee *,t40,a<compressc (port_generic_sa_error_code(error_code))>) 
n 


AZTEC 


Else if ( 
1 error_code .G&. '310'o 


OOon 


1 
1 error_code .LE. '356'o 
1) then 


0 

5 

6 

7 

8 

, 

1 Write (lun,40) aztec_sa_error_code(error_code) 

¢ 40 poracct” *,t40,A<COMPRESSC (aztec_sa_error_code(error_code))>) 
4 

5 write(lun,100) error code 

6 100 format(' *,t40,"ERROR CODE #',i<compress4 (error_code)>,'.') 
i endif 

> call output (lun,sa_register,visa,11,11,15,'0') 

4 

5 

6 

7 

8 

9 

0 


Entry UDA_LASTFAIL_ERROR (Lun, lastfail_code) 


call Linchk (lun,2) 


write(lun,27) *“LASTFAIL'’ CODE’, Lastfail_code 
-t8,a,t28,24.4) 


error_code = Lib$Sextzv (0,16, lastfail_code) 


27 format(' 


| 
| 
| 


5 if ¢ 
66 1 lastfail_code .ge. 0 
67 1 .and. 
68 1 lastfail_code .le. 22 
+4 1) then 
71 write(lun,20) port_generic_sa_error_code(error_code) 
Le else 
74 write(lun,30) error code 
75 30 format(* *,t40,"ERROR CODE #', i<compress4 (error_code)>,'.') | 
6 endif 
8 return 
9 


0 end 
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SA_ERROR 


PROGRAM SECTIONS 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


3.4-56 


7 
-S$ep-1984 00:27: 
IB-Sen-19 4 90: gf 38 ERF .SRCJPUDRIVER. FOR. 79° 


Name Bytes Attributes 
 SppaTA 15 PIE CON REL LCL SHR NOEXE RD NOURT LONG 
ny ae 2733 PIE OVR REL GEL "SHR NOEXE RD WRT LONG 
Total Space Allocated 2982 
ENTRY POINTS 
Address Type Name Address Type Name 
0-00000000 SA_ERROR 0-000000E5 UDA_LASTFAIL_ERROR 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
2-00000844 I*4 ERROR_CODE AP=00000008@ I*2 LASTFAIL_CODE AP-00000004@ L*1 LUN AP-00000008@ I*2 SA_REGISTER 
ARRAYS 
Address Type Name Bytes Dimensions 
2-O00002EC CHAR AZTEC_SA_ERROR_CODE 1365 (200:238) 
-00000000 CHAR PORT_GENERIC_SA_ERROR_CODE 748 (0:21) 
-00000000 CHAR VISA 35 (11:15) 
LABELS 
Address Label Address’ Label Address Label Address Label Address Label 
1-00000029 20° 1-0000005E 27° 1=0000006A 30' 1-00000035 40° 1-00000041 100° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name 
I*4 COMPRESS4 I*4 COMPRESSC I*4 LIBSEXTZV LINCHK OUTPUT 


20 


? . . os - 
ifegeor 19H 0:34 508 DT SKSVMSMASTER:LERF. SRCIPUDRIVER.FORS17* si 


Subroutine PUDRIVER_MSCP_DISPATCHER (Lun,option,reccnt, 
1 record_length) 


include ‘src$:emblmdef.for /nolist' 
include ‘src$:embspdef.for /nolist' 


Seeeceosees 


0 
1 byte lun 
35 character*1 option 
55 integer*4 reccnt 
56 integer*4 packet_length 
ef integer*4 record_length 
59 byte asl pep format 
equivalence (emb (48) ,mslg$b_ format) 


if ¢ 
1 option .eq. ‘S' 
i oiion *B' 
° -eq. 
1 yoo ns 
if (emb$w_hd_entry .eq. 100) then ! Logmessage entry 
call fretof (lun) 
call header2 (Lun recent) 
call logger (lun, ERLSLOGMESSAGE ENTRY‘) 


call dhead2 (iun,*'DSA’’ PORT’, 
1 emb$b_lm_naming,emb$t_lm_name,emb$w_|m_unit) 


Packet_length = record_length - 39 


ne ee weep w wl ololelolololololololololololo) 


POPOPOPOPIPIPOPOPSPINO NIN Pofofonononofnonofnunonony 


SN NNN NSP OOOO 


if (mslg$b_format .eq. 0) then ! Controller error 


oo 
wn 


( 
1 mslg$b_format .eq. 2 ! Disk transfer error - mslg$k_disk_trn 


0280 
0581 if (option .eq. 'S') then 
8 Ht call msig$k_cnt_err (lun,packet_length) 
Si endif 
6 +H else if (mslg$b_format .eq. 1) then ! Memory access error 
$388 if (option .eq. °S") then 
288 call mslg$k_bus_addr (lun,packet_length) 
89 endif 
90 
else if 
0 
0 


| 

include ‘src$:msghdr.for /nolist' 
j 

| 

9 1 .OR. 
334 1 asi 96. foraet -EQ. 5 ! Tape transfer error - mslg$k_tape_trn | 
1) then 
| 


PUDRIVER_MSCP_DISPATCHER Bese se- 138% 99: gf: 3 VAX=- 


3.4-56 
-Sep-1 LER RF .SRCJPUDRIVER.FOR; a 


if (option .eg. 'S') then 
col ISK_TAP “TRANSFER “ERRORS (Lun,packet_Length) 


else if ¢ ! SDI/STI errors 
1 msig$b_format .eq. 3 ! SDI comm error (disk) - mslg$k_sdi 


1 .OR. 

} mslg$b_format .£Q. 6 ! STI comm or cmd failure - mslg$k_sti_err 
: msl g$b_ format -EQ,. 7 ! STI drive error - mslg$k_sti_del 

: ms lg8b_ format -EQ. 8 ! STI formatter error - msig$k_sti_fel 


BeLF 


OOCCCOCCSCOCCoO 


SES wr 


endif 


else if (msig$b_format .eq. 4) then ! Small disk error 


WA 


PIPMIPINININININID 2 2 tO OO OO 


if (option .eq. 'S') then 
Coty solgeh. sml_dsk (lun,packet_length) 


OOCoCCoCooooo0oo 


WAAL AAA A AA AA AAI WA 


else 
call erllogmsg2 (lun,record_length) 
endif 


else if (emb$w_hd_entry .eq. 99) then ! Logstatus entry 


call fretof (lun) 
call header2 (Lun re 
call logger (lun, ERLSLOGSTATUS ENTRY") 


galt dhead2 (lun,''’DSA’’ PORT’, 
1 emb$b_sp_naming,emb$t_sp_ name, emb$w_sp_unit) 


ONAVESWN—O OONOULS WN —O0O@ 


en 
if Coption ie *S') then 
call SDI_STI_LERRORS (Lun,packet_length) 


call erllogsts2 (lun) 
endif 
endif 


return 
end | 
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PUDRIVER_MSCP_DISPATCHER if-se Sep-1984 00:27: VAX=11 FORTRAN V3. 4-56 p 3 
Been SEs Peis ag | STE dGAASTeN LEAL SeczPupriver.ronrt’” | 


PROGRAM SECTIONS | 


Name Bytes Attributes 
0 SCODE 379 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 2 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
; SLOCAL 1 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 51 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1099 
ENTRY POINTS | 
Address Type Name 
0-00000000 PUDRIVER_MSCP_DISPATCHER 
VARIABLES 
Address Type Name Address Type Name 
EMBSB_LM_CLASS -00000014 L*1 EMBS$B_LM_NAMLNG 
EMBSB_LM_TYPE -00000010 L*1l EMBSB_-SP_CLASS 
EMBSB_SP_NAMLNG -00000011 L*l EMBSB_SP_TYPE 
EMBSL_HD_SI - BS 14 I*4 EMBSL_SP_BCNT 
EMBSL_SP_CH - C [6 + se a 
EMBSL_SP_IOSB1 - 8 4 I*4 EMBSL_SP_IOSB 
EMBSL_SP_MEDIA - C I*4 EMBSL_SP_OPCN 
EMBSL_SP_O - J1C I*4 EMBSL_SP_ROPID 
EMBST_LM_NAME -00 41 CHAR EMBST_SP_NAME 
EMBSW_HD_ENTR -00 OE I*2 EMBSW_HD_ERRSEO 
EMBSW_LM_MSGTYP - 12 I*2 EMBSW_LM_UNIT 
EMBSW_SP_BOFF - 0 ; I*2 EMBSW_SP_ERRCNT 
EMBSW_SP_FUNC -000000 I*2 EMBSW_SP_STS 
EMBSW_SP_UNIT AP- Spon ORS L*1_ LUN 
MSLGSB_FORMAT AP-00000008@ CHAR OPTION 
PACKET -[ENGTH AP-0000000C@ I*4 RECCNT 
RECORD_LENGTH 
ARRAYS 
Addiess Type Name Bytes Dimensions 
-00000000 L*1 EMB 51 (0:511) 
-00000026 L*1 EMBSB_LM_MSGTXT 460 (460) | 
-00000006 I*4 EMBSQ_HD_TIME 8 (2) | 
| 
| 
| 
j 
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PUDRIVER_MSCP_DISPATCHER 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name 
DHEAD2 pist TAPE _TRANSFER_ERRORS ERLLOGMSG2 
ERLLOGSTS2 CrOF 3 
Leese MSLG K_BUS_ADDR MSLGSK_CNT_ERR 
MSLGSK_SML_DSK SDI_STT_ERRORS 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:PUDRIVER/OBJ=0BJ$:PUDRIVER MSRC$:PUDRIVER 


COMPILATION STATISTICS 


Run Time: 14.08 seconds 
Elapsed Time: g,/0 seconds 
Page Faults: 0 
Dynamic Memory: 50 


1g-$ep-1964 90:57 88 WN cdUmSRRS TEN: PERE coc 2PUDRIVER. FOR: 
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